Imports CapaDeDatos
Public Class nMarca
    Private TblMarca As dMarca = New dMarca()
    Public Function Insertar(ByVal Descripcion As String) As Boolean
        Return TblMarca.Insertar(Descripcion)
    End Function
    Public Function Listar() As DataSet
        Return TblMarca.Listar()
    End Function
    Public Function Modificar(ByVal CodigoMarca As String, ByVal Descripcion As String) As Boolean
        Return TblMarca.Modificar(CodigoMarca, Descripcion)
    End Function
    Public Function Eliminar(ByVal CodigoMarca As String) As Boolean
        Return TblMarca.Eliminar(CodigoMarca)
    End Function
    Public Function Buscar(ByVal CodigoMarca As String, ByVal Descripcion As String) As DataSet
        Return TblMarca.BuscarFiltrado(CodigoMarca, Descripcion)
    End Function
End Class
